#!/usr/bin/perl

sub fib
{
	my $x = $_[0];
	if ($x < 2) {
		return 1;
	}
	fib($x-1) + fib($x-2);
}

print fib(0) . "\n";
print fib(1) . "\n";
print fib(2) . "\n";
print fib(3) . "\n";
print fib(4) . "\n";
print fib(5) . "\n";
